(ns client.search
  "Namespace that contains the search tests"
  (:use client.search
	clojure.test))

(def table [{:campo1 "1" :campo2 "Hotel" :campo3 ""} {:campo1 "2" :campo2 "hotel" :campo3 "2006/7/13"} {:campo1 "3" :campo2 "$123.99" :campo3 "2007"}])

(def busqueda1 [{:campo1 "1" :campo2 "Hotel" :campo3 ""}])

(def busqueda2 [ {:campo1 "2" :campo2 "hotel" :campo3 "2006/7/13"}])

(def busqueda3 [{:campo1 "3" :campo2 "$123.99" :campo3 "2007"}])

(def busqueda4 [])

(def busqueda5 table)

(deftest search-test
  (is (= busqueda1 (search table "H" :campo2)))
  (is (= busqueda2 (search table "2" :campo1)))
  (is (= busqueda3 (search table "$123.99" :campo2)))
  (is (= busqueda4 (search table "Z" :campo2)))
  (is (= busqueda5 (search table "" :campo1)))
)

(run-tests)